home *** CD-ROM | disk | FTP | other *** search
/ FishMarket 1.0 / FishMarket v1.0.iso / fishies / 101-125 / disk_121 / dataplot / fun plots / data_maker (.txt) < prev    next >
AmigaBASIC Source Code  |  1992-05-06  |  469b  |  30 lines
  1. ' DATA MAKER
  2. LINE INPUT "Are the file name and  the function correct?  (list to see) ",A$
  3. IF UCASE$(A$)<>"Y" THEN STOP
  4.  
  5. DEF FNX(T)=T*SIN(T)
  6.  
  7. DEF FNY(T)=T*COS(T)
  8.  
  9. OPEN "SPIRAL" FOR OUTPUT AS #1
  10.  
  11. PRINT #1,"TITLE=SPIRAL"
  12. PRINT #1,"XLABEL"
  13. PRINT #1,"YLABEL"
  14. PRINT #1,"GRIDS=NO"
  15. PRINT #1,"MARKERS=YES"
  16. PRINT #1,"SEGMENTS=NO"
  17.  
  18. FOR T=1 TO 500
  19.  
  20.   X=FNX(T)
  21.   Y=FNY(T)
  22.   
  23.   PRINT #1,X;",";Y
  24.   
  25. NEXT T
  26.  
  27. CLOSE #1
  28.  
  29. END
  30.